home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Variations / eval-list < prev    next >
Lisp/Scheme  |  1996-12-31  |  593b  |  20 lines
  1. eval-list list-of-variables                        
  2.  
  3. Use this utility function to evaluate a <list-of-variables>. This can be useful when working to structure motives into large phrases or movements.
  4.  
  5. (setq mphr1 '(a b c b))
  6. (setq mphr2 '(d e e e))
  7. (setq orn1 '(f f g g f))
  8. (setq orn2 '(= g g g f f f))
  9.  
  10. (setq mvar1 (gen-variants 0.13 7 mphr1))
  11. (setq mvar2 (gen-variants 0.13 3 mphr2))
  12.  
  13. (setq section1m 
  14.    (gen-variants 0.13 3 '(mvar1 mvar2 orn1 mvar2 orn2)))
  15.  
  16. (def-instrument-symbol
  17.    perc (eval-list section1m)
  18. )
  19.  
  20. Eval manually (eval-list section1m) to examine the results in the Listener.